MacFormat 1997 February/macformat-047.iso/Demos/Picasso Interactive Demo/Data/Sequence/Sequence.Dxr/Internal_11_Sc. QTVR.ls

Text File | 1996-12-02 | 1.5 KB | 58 lines

on gestionQTVRMarc
  global gCurseurPointerSeq, gCurseurLoupeInSeq, gCurseurDoigtSeq, gCurseurFlecheGaucheSeq, gCurseurFlecheDroiteSeq, gNumSpriteVideo, gTypeSpriteVideo, movieName, nbi, gType
  set nomQTVR to the name of the member of sprite gNumSpriteVideo
  if nomQTVR = "Panorama.QTV" then
    set factor to 20
  else
    set factor to 2
  end if
  set nbi to the duration of member nomQTVR
  set orgx to the mouseH
  repeat while the mouseDown = 1
    set x to the mouseH
    if x < orgx then
      Leftrotate((orgx - x) / factor)
      cursor(gCurseurFlecheGaucheSeq)
    else
      if x > orgx then
        Rightrotate((x - orgx) / factor)
        cursor(gCurseurFlecheDroiteSeq)
      end if
    end if
    if nomQTVR <> "Panorama.QTV" then
      set orgx to x
    end if
    updateStage()
  end repeat
end

on Leftrotate speed
  global movieName, nbi, gNumSpriteVideo, gScrollQTRV360
  set cui to the movieTime of sprite gNumSpriteVideo
  if (cui + speed) > nbi then
    if gScrollQTRV360 = 1 then
      set cui to cui + speed - nbi
    else
      set cui to nbi
    end if
  else
    set cui to cui + speed
  end if
  set the movieTime of sprite gNumSpriteVideo to cui
end

on Rightrotate speed
  global movieName, nbi, movieprop, gNumSpriteVideo, gScrollQTRV360
  set cui to the movieTime of sprite gNumSpriteVideo
  if (cui - speed) < 0 then
    if gScrollQTRV360 = 1 then
      set cui to cui - speed + nbi
    else
      set cui to 0
    end if
  else
    set cui to cui - speed
  end if
  set the movieTime of sprite gNumSpriteVideo to cui
end